home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / windows / ezdia175.zip / TESTBED.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-27  |  30KB  |  951 lines
  1.  
  2. program testbed;
  3.  
  4. {$R testbed.RES}
  5.  
  6. uses wincrt, WObjects, WinTypes, WinProcs, strings, StdDlgs, StdWnds,
  7.      dialunit;
  8.  
  9. const
  10.   IO_AREA_SIZE = 65000;
  11.   CURSOR_CHAR  = '|';
  12.   cm_specparam = 101;
  13.   cm_establink = 102;
  14.   cm_hangup    = 103;
  15.   cm_callbbs   = 104;
  16.   cm_xmodemdown= 105;
  17.   cm_xmodemup  = 106;
  18.   cm_xmod1kdown= 107;
  19.   cm_xmod1kup  = 108;
  20.   cm_ymodemdown= 109;
  21.   cm_ymodemup  = 110;
  22.   cm_interrupt = 111;
  23.   cm_addresponse=112;
  24.   cm_linktoport =113;
  25.  
  26.   cm_exit      = 001;
  27.  
  28.   cm_download  = 201;
  29.   cm_upload    = 202;
  30.   cm_movedown  = 203;
  31.   cm_moveup    = 204;
  32.   cm_update    = 205;
  33.   cm_mailupdate= 206;
  34.  
  35.   cm_zipserver = 301;
  36.   cm_zipclient = 302;
  37.  
  38.   cm_unzipserver = 401;
  39.   cm_unzipclient = 402;
  40.  
  41.   cm_runserver = 501;
  42.   cm_runclient = 502;
  43.   cm_lnchserver= 503;
  44.   cm_lnchclient= 504;
  45.  
  46.   cm_delServer = 601;
  47.   cm_delClient = 602;
  48.  
  49.   cm_UseHelp      = 905;
  50.   cm_HelpAbout    = 999;
  51.                    
  52.   cm_DialupStatus     = 145;
  53.   cm_DialupBanner     = 146;
  54.   cm_DialupBytes      = 147;
  55.   cm_DialupElapsed    = 148;
  56.   cm_DialupBPS        = 149;
  57.   cm_DialupPercent    = 150;
  58.   cm_CommandCompleted = 151;
  59.   cm_ZipStatus        = 152;
  60.  
  61.   cm_CommNotify       = 160;
  62.   cm_EventNotify      = 161;
  63.  
  64.   id_messagearea      = 101;
  65.   id_notifyarea       = 902;
  66.  
  67. type
  68.   TTestBedApp = object(TApplication)
  69.                   procedure InitMainWindow; virtual;
  70.                   procedure InitInstance; virtual;
  71.                 end;
  72.  
  73.  pMultiFieldDlg  = ^TMultiFieldDlg;
  74.  TMultiFieldDlg= object(Tdialog)
  75.                    NumFields:integer;
  76.                    Chk:pcheckbox;
  77.                    procedure SetupWindow; virtual;
  78.                    procedure EndDlg(ARetValue: Integer); virtual;
  79.                    constructor Init(AParent: PWindowsObject; AName: PChar;aNumFields:integer);
  80.                  end;
  81.  
  82.   PStatusWindow= ^TStatusWindow;
  83.   TStatusWindow = object(TDlgWindow)
  84.                     MessagesArea:plistbox;
  85.                     NotificationsArea:plistbox;
  86.                     MyParent : pWindow;
  87.                     constructor Init(AParent: PWindowsObject;
  88.                                      AName: PChar);
  89.                     procedure SetupWindow; virtual;
  90.                     procedure WMSetFocus(var Msg: TMessage);
  91.                        virtual WM_First + WM_setfocus;
  92.                   end;
  93.  
  94.   PTTestBedWindow = ^TTestBedWindow;
  95.   TTestBedWindow = object(TWindow)
  96.                      MyScroller : pscroller;
  97.                      StatusWindow : pStatusWindow;
  98.                      IORow,IOLine:integer;
  99.  
  100.                      IOWindow     : pdialog;
  101.                      IOChannelOpen:boolean;
  102.                      CallInProgress:boolean;
  103.                      HangupRequested:boolean;
  104.                      NumLines     :word;
  105.                      LinesPerScreen:word;
  106.                      LastKey:char;
  107.                      IOArea       :pchar;
  108.                      IOAreaIndex  :word;
  109.                      CommandSerialNumber:word;
  110.  
  111.  
  112.                      constructor Init(AParent: PWindowsObject; ATitle: PChar);
  113.                      destructor Done; virtual;
  114.                      procedure SetupWindow; virtual;
  115.                      procedure GetWindowClass(var AWndClass:TWndCLass); virtual;
  116.  
  117.                      procedure Paint(PaintDC: HDC; var PaintInfo: TPaintStruct); virtual;
  118.                      function CanClose: boolean; virtual;
  119.                      procedure WMChar(var Msg: TMessage);
  120.                        virtual WM_First + WM_char;
  121.                      function RunDialog(Title,Label1,Label2,Label3:string;
  122.                                   NumFields:integer):boolean; virtual;
  123.                      procedure PrepNotifications; virtual;
  124.  
  125.                      (* Responses to user input... *)
  126.  
  127.                      {File...}
  128.                      procedure FileExit(var Msg: TMessage);
  129.                        virtual cm_First + cm_exit;
  130.  
  131.                      {Connection...}
  132.                      procedure SpecParam(var Msg: TMessage);
  133.                        virtual cm_First + cm_specparam;
  134.                      procedure EstabLink(var Msg: TMessage);
  135.                         virtual cm_First + cm_establink;
  136.                      procedure AddAutoResponse(var Msg: TMessage);
  137.                        virtual cm_First + cm_addresponse;
  138.                      procedure CallBBS(var Msg: TMessage);
  139.                        virtual cm_First + cm_callbbs;
  140.                      procedure LinkToPort(var Msg: TMessage);
  141.                        virtual cm_First + cm_linktoport;
  142.                      procedure Hangup(var Msg: TMessage);
  143.                        virtual cm_First + cm_hangup;
  144.  
  145.                      {Transfer...}
  146.                      procedure DownLoad(var Msg: TMessage);
  147.                        virtual cm_First + cm_download;
  148.                      procedure UpLoad(var Msg: TMessage);
  149.                        virtual cm_First + cm_upload;
  150.                      procedure MoveDown(var Msg: TMessage);
  151.                        virtual cm_First + cm_movedown;
  152.                      procedure MoveUp(var Msg: TMessage);
  153.                        virtual cm_First + cm_moveup;
  154.                      procedure UpdateClient(var Msg: TMessage);
  155.                        virtual cm_First + cm_update;
  156.                      procedure UpdateEZMail(var Msg: TMessage);
  157.                        virtual cm_First + cm_mailupdate;
  158.  
  159.                      {Zip...}
  160.                      procedure ZipServer(var Msg: TMessage);
  161.                        virtual cm_First + cm_zipserver;
  162.                      procedure ZipClient(var Msg: TMessage);
  163.                        virtual cm_First + cm_zipclient;
  164.                      procedure UnZipServer(var Msg: TMessage);
  165.                        virtual cm_First + cm_unzipserver;
  166.                      procedure UnZipClient(var Msg: TMessage);
  167.                        virtual cm_First + cm_unzipclient;
  168.  
  169.                      {Execute...}
  170.                      procedure RunServer(var Msg: TMessage);
  171.                        virtual cm_First + cm_runserver;
  172.                      procedure RunClient(var Msg: TMessage);
  173.                        virtual cm_First + cm_runclient;
  174.                      procedure LnchServer(var Msg: TMessage);
  175.                        virtual cm_First + cm_lnchserver;
  176.                      procedure LnchClient(var Msg: TMessage);
  177.                        virtual cm_First + cm_lnchclient;
  178.  
  179.                      {Delete...}
  180.                      procedure DelServer(var Msg: TMessage);
  181.                        virtual cm_First + cm_delserver;
  182.                      procedure DelClient(var Msg: TMessage);
  183.                        virtual cm_First + cm_delclient;
  184.  
  185.                      {X-Ymodem}
  186.                      procedure XmodemDownload(var Msg: TMessage);
  187.                        virtual cm_First + cm_xmodemdown;
  188.                      procedure XmodemUpload(var Msg: TMessage);
  189.                        virtual cm_First + cm_xmodemup;
  190.                      procedure Xmodem1KDownload(var Msg: TMessage);
  191.                        virtual cm_First + cm_xmod1kdown;
  192.                      procedure Xmodem1KUpload(var Msg: TMessage);
  193.                        virtual cm_First + cm_xmod1kup;
  194.                      procedure YmodemDownload(var Msg: TMessage);
  195.                        virtual cm_First + cm_ymodemdown;
  196.                      procedure YmodemUpload(var Msg: TMessage);
  197.                        virtual cm_First + cm_ymodemup;
  198.                      procedure InterruptTransfer(var Msg: TMessage);
  199.                        virtual cm_First + cm_interrupt;
  200.  
  201.                      {Help}
  202.                      procedure UseHelp(var Msg: TMessage);
  203.                        virtual cm_First + cm_UseHelp;
  204.                      procedure HelpAbout(var Msg: TMessage);
  205.                        virtual cm_First + cm_HelpAbout;
  206.  
  207.                      (* Responses to EZdialup messages... *)
  208.                      procedure NewDialupStatus(var Msg:Tmessage);
  209.                        virtual wm_user + cm_DialupStatus;
  210.